home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / ircap25 / IRCAP25B.ZIP / IRcap / raw.ini < prev    next >
Encoding:
INI File  |  1997-09-02  |  9.8 KB  |  232 lines
  1. [script]
  2. n0=;-----------------------------------------------------------------------------------
  3. n1=#nuke off
  4. n2=raw 311:*: set %nukeip $parm4 | halt
  5. n3=raw 312:*: set %nukeserver $parm3 | halt
  6. n4=raw 301:*: halt
  7. n5=raw 313:*: halt
  8. n6=raw 319:*: halt
  9. n7=raw 317:*: halt
  10. n8=raw 318:*: {
  11. n9=  set %nukeser -s $+ $lower(%nukeserver)
  12. n10=  set %jee $read %nukeser c:\ircap\ginsu.txt
  13. n11=  unset %nukeser
  14. n12=  set %donde -client | if (%jee != $null ) set %donde -server  
  15. n13=  
  16. n14=  if ( %sginsu == -client ) { set %donde -client | echo 12 -s  Forzando nuke por client }  
  17. n15=  if ( %sginsu == -server ) { set %donde -server | echo 12 -s  Forzando nuke por server }  
  18. n16=  
  19. n17=  run c:\IRcap\nuke\click4.exe %nukeserver %nukeip -clp %nukei -chp %nukef -slp %nukept -shp %nukeptf -ports %ginsui -time %ginsuf %donde
  20. n18=  
  21. n19=  .disable #nuke | echo -s  1 .IP: %nukeip Server: %nukeserver
  22. n20=  echo -s 1 .Modo: %donde   Puertos: %nukept - %nukeptf
  23. n21=  unset %donde | unset %jee | raya | snuke | halt 
  24. n22=}
  25. n23=#nuke end
  26. n24=;-----------------------------------------------------------------------------------
  27. n25=#pilladir off
  28. n26=raw 301:*:halt
  29. n27=raw 310:*:halt
  30. n28=;311:*:echo   6 -s  $parm2  12 $parm3 $+ 2@ $+ $parm4 $+ 12 $parm5* | halt
  31. n29=raw 311:*:set %ndir $parm4 | halt
  32. n30=raw 319:*:halt
  33. n31=raw 312:*:halt
  34. n32=raw 313:*:halt
  35. n33=raw 313:*:halt
  36. n34=raw 317:*:halt
  37. n35=raw 318:*: {
  38. n36=  if ( %ndir == $null ) { echo 12 -s No se encontr≤ el nick especificado | raya }
  39. n37=  if ( %ndir != $null ) { who %ndir | echo 12 -s Buscando nicks visibles de4 %ndir }
  40. n38=  .disable #pilladir | unset %ndir | halt
  41. n39=}
  42. n40=raw 401:*:halt
  43. n41=#pilladir end
  44. n42=;
  45. n43=#canal007 off
  46. n44=raw 319:*: {
  47. n45=  set %cnl $replace($parm3*,$chr(32),$chr(44)) | set %cnl $remove(%cnl,@)
  48. n46=  if (%cnt != 1) { echo 12 -s  Mirando los canales en los que estß... | names %cnl }
  49. n47=  if (%cnt == 1) { echo 12 -s  Entrando a los canales en los que estß... | join %cnl }
  50. n48=  unset %cnl | unset %cnt
  51. n49=  halt
  52. n50=}
  53. n51=raw 312:*: halt
  54. n52=raw 317:*: halt
  55. n53=raw 318:*: .disable #canal007 | halt
  56. n54=#canal007 end
  57. n55=;
  58. n56=#whoix on
  59. n57=raw 301:*:echo  %wdonde 12 Away: $+ 1 $parm3* | halt
  60. n58=raw 310:*:echo  %wdonde 12 $parm2 $+ 12 $parm3* | halt
  61. n59=raw 311:*: {
  62. n60=  if ( %freco == 1 ) { set %blancof $parm4 | echo 6  $parm2 4fijado relocalizador para blanco en %blancof | unset %freco }
  63. n61=  if ( %freco == 2 ) { set %siguef $parm4 | echo 6  $parm2 4fijado relocalizador para seguir en %siguef | unset %freco }
  64. n62=  if ( %wreg == $parm2 ) { write registro.log $date $timestamp - - $parm2 $parm3 $+ @ $+ $parm4 $+ $parm5*  - -  $server | write registro.log - | echo 3 -s  $parm2 logeado | unset %wreg }
  65. n63=  echo   6 %wdonde  $parm2  12 $parm3 $+ 2@ $+ $parm4 $+ 12 $parm5* | set %uw $parm2
  66. n64=  set %pais $parm4
  67. n65=  if ( %klin == 1 ) { unset %klin | kline *! $+ $parm3 $+ @ $+ $parm4  $+ $parm2 4 %klinr 1 | echo 4   $parm2 baneado. Podrß volver si cambia USER o conecta de nuevo en Internet (nueva IP). | unset %klinr }
  68. n66=  if ( %klin == 2 ) { unset %klin | kline *!*@ $+ $parm4  $+ $parm2 4 %klinr 1 | echo 4  $parm2 baneado. Podrß volver si conecta de nuevo en Internet (nueva IP). | unset %klinr }
  69. n67=  if ( %klin == 3 ) { unset %klin | set %host $parm4 | kprov $parm2 %klinr | unset %klinr }
  70. n68=  halt
  71. n69=}
  72. n70=raw 319:*:echo %wdonde 12 Canales:1 $parm3* | halt
  73. n71=raw 312:*: { 
  74. n72=  echo %wdonde 12 Servidor:1 $parm3 $+ 2 $parm4  $parm5*
  75. n73=  if ( %nscan != $null ) .timer 1 1 Pscanick $parm3
  76. n74=  halt
  77. n75=}
  78. n76=raw 313:*:echo 4 %wdonde  IRC Operador | halt
  79. n77=raw 313:*:echo %wdonde 12 $parm2 $parm3 $parm4 12 $+ $parm5* | halt
  80. n78=raw 317:*: {
  81. n79=  set %sig $parm4 | %sig = $ctime - %sig
  82. n80=  echo %wdonde 12 Login:1 $duration(%sig) 12 Idle:1 $duration($parm3)
  83. n81=  unset %sig | halt
  84. n82=}
  85. n83=raw 318:*: sacapais %pais | echo 12 %wdonde - | halt
  86. n84=raw 401:*: rebusca $parm2 | halt
  87. n85=raw 402:*: rebusca $parm2 | halt
  88. n86=
  89. n87=raw 314:*: {
  90. n88=  echo %wdonde - | echo 10 %wdonde  $parm2 12 $parm3 $+ 2@ $+ $parm4 $+ 12 $parm5* | echo 10 %wdonde  $parm2 ya no se encuentra en el irc.
  91. n89=  if (%nwho == 1 ) && ( $parm4 != dal.net ) { echo -s 4 Se intentarß relocalizar nuevo nick. | .enable #rewhowas | set %rquery $parm2 | who * $+ $parm4 $+ * }
  92. n90=  unset %nwho | halt
  93. n91=}
  94. n92=raw 406:*: echo 12 %wdonde  $parm2 1 no hay informaci≤n (whowas) sobre este nick. | halt
  95. n93=raw 369:*: echo %wdonde - | halt
  96. n94=#whoix end
  97. n95=;
  98. n96=#rewhowas off
  99. n97=raw 352:*: {
  100. n98=  echo -s 4 Se encontr≤ a5 $parm6 | whois $parm6 
  101. n99=  if $query(%rquery) == %rquery query $parm6
  102. n100=  if $chat(%rquery) == %rquery query $parm6
  103. n101=  .disable #rewhowas | unset %nwho | halt 
  104. n102=}
  105. n103=raw 315:*: echo -s 10 No se encontraron nicks. | raya | .disable #rewhowas | unset %nwho | halt 
  106. n104=#rewhowas end
  107. n105=;
  108. n106=raw 401:*: if ( $parm2 == %dvp ) halt
  109. n107=raw 402:*: if ( $parm2 == %dvp ) halt
  110. n108=;
  111. n109=#scancanal off
  112. n110=raw 352:* {
  113. n111=  if ($parm4 isin %todos) { inc %clon | %lclon = %lclon ( $parm6 ) } | else { %todos = %todos $parm4 }
  114. n112=  if (* isin $parm7) { inc %ircop | %lcop = %lcop ( $parm6 ) }
  115. n113=  if (@ isin $parm7) { inc %op } | else { inc %noop }
  116. n114=  inc %total
  117. n115=  halt
  118. n116=}
  119. n117=raw 315:* { 
  120. n118=  lsombra 8 5 %canal 0[ $+ $chan(%canal).mode $+ ]  | echo -s %texto
  121. n119=  if (%dpr == 1) msg %canal  %texto
  122. n120=  echo 3 -s  Clones : 1 %clon 4 %lclon
  123. n121=  if (%dpr == 1) { .timer 1 1 msg %canal  3 Clones : 1 %clon 4 %lclon }
  124. n122=  echo 3 -s  IRCops : 1 %ircop  4 %lcop
  125. n123=  if (%dpr == 1) { .timer 1 2 msg %canal  3 IRCops : 1 %ircop  4 %lcop }
  126. n124=  echo 3 -s  Ops / noops :  1 %op / %noop
  127. n125=  if (%dpr == 1) { .timer 1 3 msg %canal  3 Ops / noops :  1 %op / %noop }
  128. n126=  echo 12 -s  Total : 1 %total usuarios | raya
  129. n127=  if (%dpr == 1) { .timer 1 4 msg %canal  12 Total : 1 %total usuarios }
  130. n128=  unset %clon | unset %ircop | unset %op | unset %noop | unset %todos | unset %total | unset %canal
  131. n129=  unset %lclon | unset %lcop
  132. n130=  .disable #scancanal | halt
  133. n131=}
  134. n132=#scancanal end
  135. n133=;
  136. n134=#relocab off
  137. n135=raw 352:*: {
  138. n136=  echo 6 -s  nuevo blanco es4 $parm6 
  139. n137=  set %ene $parm6
  140. n138=  echo 1 -s  Clones hallados : | .disable #relocab
  141. n139=  halt
  142. n140=}
  143. n141=raw 315:*:echo 12 -s  No se encontr≤ blanco | raya | .disable #relocab | halt 
  144. n142=#relocab end
  145. n143=;
  146. n144=#relocaf off
  147. n145=raw 352:*: {
  148. n146=  echo 6 -s  nuevo nick a seguir es12 $parm6 
  149. n147=  set %sigue $parm6 | /.timer9 0 %tsigue /whois %sigue %sigue
  150. n148=  echo 1 -s  Clones hallados : | .disable #relocaf
  151. n149=  halt
  152. n150=}
  153. n151=raw 315:*:echo 12 -s  No se encontr≤ nick | raya | .disable #relocaf | halt 
  154. n152=#relocaf end
  155. n153=;
  156. n154=#whox on
  157. n155=raw 352:*:echo 6 -s  $parm6  12 $parm3  $+ 2@ $+ $parm4  12 $parm9* 4 $parm7 $parm8 1 $parm2 | inc %cwho 1 | set %uw $parm6 | halt
  158. n156=raw 315:*:echo 1 -s $parm2 12 $+ Fin de la lista (4 %cwho 12) | echo -s - | set %cwho 0 |  halt 
  159. n157=;
  160. n158=raw 353:*: {
  161. n159=  lsombra 0 2 $parm3 | set %nam %texto
  162. n160=  set %nto 4 | set %col 1 | set %nnic 0
  163. n161=  :L1
  164. n162=  set %tok $gettok( $parms , %nto ,32)
  165. n163=  if ( %tok == $null ) goto finames
  166. n164=  %nam = %nam  $+ %col %tok
  167. n165=  inc %nto | inc %nnic
  168. n166=  inc %col 11 | if ( %col > 12 ) set %col 1
  169. n167=  goto L1
  170. n168=  :finames
  171. n169=  echo -s %nam
  172. n170=  unset %nam | unset %tok | unset %col | unset %nto
  173. n171=  halt
  174. n172=}
  175. n173=raw 366:*: echo 3 -s  $parm2 $+ 1 %nnic 3nicks visibles | set %nnic 0  | echo -s - | halt
  176. n174=;
  177. n175=raw 482:*: lsombra 8 5 $parm2 | echo -s %texto 5no eres operador | raya | halt
  178. n176=raw 433:*: lsombra 8 5 $parm2 | echo -s %texto 5nick ocupado, sacando whois... | whois $parm2 | halt
  179. n177=
  180. n178=#whox end
  181. n179=;
  182. n180=#lklines off
  183. n181=raw 216:*: aline @K-lines $parm3*
  184. n182=raw 219:*: .disable #lklines 
  185. n183=#lklines end
  186. n184=;
  187. n185=#SCpuertos off
  188. n186=raw 211:* {
  189. n187=  set %scpt $left(4,$right(5,$2))
  190. n188=  if %scpt isnum {
  191. n189=    set %sclista %sclista %scpt
  192. n190=    set %scvel $5 + $7 | if ( %mejor < 1 ) { set %mejor %scvel | inc %mejor 1 }
  193. n191=    if ( %scvel < %mejor ) { set %mejor %scvel | set %mejorpt %scpt }
  194. n192=  }    
  195. n193=  halt    
  196. n194=}   
  197. n195=raw 219:*: {
  198. n196=  if ($2 == l) {
  199. n197=    lsombra 0 1 Puertos de8 %cserv | echo -s %texto | unset %cserv
  200. n198=    echo 12 -s . . Puertos disponibles :1 %sclista
  201. n199=    echo 12 -s . . Puerto  mßs  rßpido  :1 %mejorpt
  202. n200=    unset %scpt | unset %sclista | unset %mejorpt | unset %mejor | unset %scvel | .disable #SCpuertos
  203. n201=    raya | halt
  204. n202=  }
  205. n203=}
  206. n204=#SCpuertos end
  207. n205=;
  208. n206=#midelag on
  209. n207=raw 219:*: {
  210. n208=  ;  echo 11 -s  $parm2 
  211. n209=  if ( $parm2 != j ) && ( $parm2 != * ) goto L1
  212. n210=  %lag =  $ctime - %ilag
  213. n211=  if ( %lag > 30 ) { lsombra 8 6 EXCESIVO LAG detectado | echo -s %texto  %lag segundos | raya | halt }
  214. n212=  if ( %lag > 15 ) { lsombra 8 6 LAG detectado | echo -s %texto  %lag segundos | raya | halt }
  215. n213=  halt 
  216. n214=  :L1
  217. n215=}
  218. n216=#midelag end
  219. n217=
  220. n218=#xlusers on
  221. n219=raw 251:*: {
  222. n220=  raya | lsombra 8 12 Resumen del IRC ( Lusers ) | echo -s %texto
  223. n221=  set %a $parm4 | set %b $parm7 | %c = %a + %b
  224. n222=  echo  -s 3 Usuarios :1  %c  12( %b invisibles ) en1 $parm10 12servidores
  225. n223=  unset %a | unset %b | unset %c | halt
  226. n224=}
  227. n225=raw 252:*: echo -s 3 IRCops : 1 $parm2 12operadores en linea | halt
  228. n226=raw 253:*: echo -s 1 $parm2 12 conexiones desconocidas | halt
  229. n227=raw 254:*: echo -s 3 Canales : 1 $parm2 12 canales | halt
  230. n228=raw 255:*: echo -s 3 $server :1 $parm4 12clientes en1 $parm7 12servidores | raya | halt
  231. n229=#xlusers end
  232.